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PPPPPPPP AAAAAA SSSSSSSS_PPPPPPPP WU UU TITTTTITTT 
PPPPPPPP AAAAAA SSSSSSSS_PPPPPPPP WU UU TITTITTITT 
PP PP AA AA SS PP PP UU UU TT 
PP PP AA AA SS pp PP UU UU TT 
PP PP AA AA 55 PP PP UU UU TT 
PP PP AA AA 5S PP PP UU UU TT 
PPPPPPPP = AA AA  SSSSSS_-—sPPPPPPPP) =U UU TT 
PPPPPPPP = AA AA  L3SSSS__ ss PPPPPPPP = UU UU TT 
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PP AA AA SS PP UU UU TT pate 
PP AA AA SSSSSSSS_— PP UUUUUUUUUU TT a‘ 
PP AA AA SSSSSSSS_ PP UUUUUUUUUU TT hil 
LL HII SSSSSSSS 
LL eeeee SSSSSSSS 
LL I] SS 
LL 1] $$ 
LL 1] SS 
LL 1] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL II SS 
LL 1] 5S 
LL I] SS 
LL 1] SS 
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| 1 2:51:34 PASRTL.SRCJPASPUT .B32; 1 

MODULE PASSPUT ( %TITLE ‘PUT procedure” 
rp ENT = '1-001' 


! File: PASPUT.B32 Edit: SBL1001 
BEGIN 


Lee R RARER ARHERER ARTETA EE 
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't COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
!* ALL RIGHTS RESERVED. 


ie THIS SOFTWARE 41 FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
't ONLY ° ACCORD og BY. THE TERMS OF SUCH Tt AND WITH ba, 
NY 


* 
® 
*® 
® 
® 
® 
i 0 0 OT ‘ 
ix COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO A “ 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. . 
® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 
* 
& 
® 
* 
He 
* 
® 


't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
'® CORPORATION. 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Vee REE ERE AERA EAEEEAEEEAEEAAEEAAEEEAAEREK ER EAAE 
' 


8 
0029 
0030 '++ 
OO, : FACILITY: Pascal Language Support 
0033 i ABSTRACT: 
0034 i 
0035 i This module contains PAS$SPUT, which implements the 
ooRS VAX-11 Pascal PUT procedure. 
it ENVIRONMENT: User mode - AST reentrant 
sre AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
94 i MODIFIED BY: 
004 i 
0044 i 1-001 - Original. SBL 1-April-1981 
0045 in 
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1 ZSBTTL ‘PASSPUT = PUT procedure’ 
GLOBAL ROUTINE PASSPUT ( ' 
ERKOR SPASSPFV_FILE_VARIABLE, 


): NOVALUE = 


mno 


o a PUT 
ile variable 
rror unwind address 


SIDE EFFECTS: 
Opens standard files INPUT or OUTPUT if not already open. 
SIGNALLED ERRORS: 


144 
FUNCTIONAL DESCRIPTION: 
i PASSPUT implements the VAX-11 Pascal PUT procedure. It 
writes the current file buffer component to the file. 
: CALLING SEQUENCE: 
CALL PAS$PUT (PFV.mr.r C, ERROR.j.r]) 
FORMAL PARAMETERS: 
PFV - The Pascal File Variable (PFV) passed by reference. 
} The structure of the PFV is defined in PASPFV.REQ. 
ERROR - Optional. If specified, the address to unwind to 
in case of an error. 
| IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
! NONE 
i 
i 
i 
i 
i 
i 
‘ FILNOTGEN - file is not in Generation mode 
: LINTOOLON - Line too lon 
: LINVALEXC = LINELIMIT value exceeded 
: KEYDUPNOT = key field duplication is not allowed 
ERRDURPUT = error during PUT : 
BEGIN 
LOCAL : 
CB: REF $PAS$FCB_CONTROL_BLOCK, ' File control block 
PFV_ADDR: VOLATILE ' Enable argument 


1 
' 

UNWIND ACT: VOLATILE, i Enable argument 
' Enable argument 
' Status from $PUT 
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_ PASS$SPuUT procedure 1 =| 38% 94:31:78 AX-11 Bliss-32 V4.0-74 
4 1 SPUT - PUT procedure 1 -1984 12:51:4 PASRTL.SRCJPASPUT.B32; 


—N 


BIND 
RAB = FCB: REF BLOCK C, BYTE]; ! RMS RAB 


Be 


ENABLE 
PASSS$IO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 


if ACTUALCOUNT () GEQU 2 ! Was ERROR specified? 
ERROR_ADDR = .ERROR; 
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‘+ 
Set enable argument for PFV address. 
PFV_ADDR = PFV CPFVS$R_PFV]; 

1+ 

Validate and lock PFV. 
PASSSVALIDATE_PFV (PFV CPFVSR_PFVI]; FCB); 


'¢ 
} Set unwind action to unlock file. 
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UNWIND_ACT = PASSK_UNWIND_UNLOCK; 
'¢ 
Resolve lazy lookahead, if any. Also may open INPUT or OUTPUT. 
IF NOT .PFV CPFV$V_VALIDJ 
PASS$SLOOK_AHEAD (PFV CPFVSR_PFV], FCB CFCBSR_FCBJ; FCB); 
le 
Verify that the file is open. 
IF NOT .PFV CPFVS$V_OPEN] 
SPASSIO_ERROR (PAS$_FILNOTOPE,0); 


BP EF FAM ANNAN AAI ESP DIPONINPINPINININID) 2 OO OO OS HS OOO 
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'¢ 
: Verify that we are in Generation mode 


IF NOT .FCB CFCBSV_GENERATION] AND NOT .FCB CFCBSV_INDEXED] 
SPAS$IO_ERROR (PAS$_FILNOTGEN,0); 
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1+ 
PUT from a textfile is different... 


If .FCB CFCBSV_TEXT) 
THEN 
BEGIN 


'+ 
} Are we already at the end-of-line? If so, give an error. 


GeoRSS SSLISES 


| 
| 
‘4 be CFCBSA_RECORD_CUR] GEQA .FCB CFCBSA_RECORD_ENDJ 

ELS SPASSIO_ERROR (PAS$_LINTOOLON,1,1) 
BEGIN 
14 | 


Move component tc file and advance current position. 
CHSWCHAR_A (..PFV CPFVSA_BUFFER], FCB CFCBSA_RECORD_CUR)); 


END 
BEGIN 
i Not a textfile, check and update the Linelimit. 
Then call RMS to write che record. 
IF .FCB CFCBSL_LINELIMIT] GEQ 0 ' Limit in effect? 
IF .FCB CFCBSL_LINELIMIT] EQL 0 ! Limit exceeded? 
SPASSIO_ERROR (PAS$_LINVALEXC,0) 


FCB CFCBSL_LINELIMIT] = .FCB CFCBSL_LINELIMIT] - 1; 


‘+ 
Set RSZ appropriately. 
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IF FCB CF CBSV_VARYING) 
eu se CRABSW_RSZ) = .(.PFV CPFVSA_BUFFER])<0,16,0> | 
RAB CRABSW_RSZ) = .RAB CRABSW_USZ]; 


RAB CRABSL_RBFJ = .RAB CRABSL_UBF); 


. 
e 
. 
° 
. 
o 
. 
. 
. 
o 
. 
e 
. 
° 
° 
e 
° 
e 
. 
° 
> 
e 
. 
e 
. 
° 
. 
. 
. 
o 
+ 
eo 
. 
o 
. 
° 
. 
a 
. 
° 
° 
e 
© 
° 
. 
e 
. 
e 
. 
o 
. 
a 
. 
Ld 
° 
o 
> 
e 
. 
. 
. 
td 
. 
o 
~ 
e 
. 
a 
. 
a 
. 
o 
o 
. 
. 
e 
. 
e 
- 
. 
~ 
. 
. 
o 
. 
e 
. 
e 
. 
2 
- 
° 


1+ 
' If the file was opened ACCESS:=KEYED, or the last thing we did | 
was a LOCATE, set the access method to keyed, otherwise sequential. 


BREE EE BWANA AAA IUNININNNNN 3S A BB OOCD 


Oe a CFCBSV_KEYED) OR .FCB CFCBSV_LOCATE) 


PROPOPORIPOPIPINNGDIPYDINNDPNINONYAIPIPNIPYRIPIPIAIPIPONININIDIPININININIPINININININNNINNININ 2 


ANAAIAAAAANAAIAAAAAANAA AIA B&B AAA NNNN AAAI BEB AEA 


OWN WF WN—OVCONOu' 


aes 


a ST 


| PASSPUT ure 4 01:51:3 AX-11 Bliss-32 V4 42 Page 6 
age UT = PUT procedure Re 03:24:29 PASRTL.SRCJPASPUT 1 . (3) 


PUT 
PAS 
is 20 0311 4 BEGIN : 
is 1 0 ig 4 RAB [RABSB_RAC] = RABSC_KEY; : 
a 26 0 \? Pr ae, FCBSV-LOCATE] = 0;~  ‘! Cancel Locate : 
13 254 6 15 ELSE : 
13 a2 8 18 RAB CRABSB_RAC] = RABSC_SEQ; : 
3 39 0318 STATUS = SPASSRMS_OP ($PUT (RAB=.RAB)); 
i; «6258 0319 IF NOT .STATUS ; 
13 59 0320 THEN 3 
; 260 0321 4 BEGIN : 
3 6) 03 ¢ ¢ iv «STATUS EQL RMS$_DUP ; 
3 208 Bee ? SPASSIO_ERROR (PAS$_KEYDUPNOT) ! Key field duplication not allowed | : 
3 6€e2 $356 4 SPASSIO_ERROR (PAS$_ERRDURPUT); ! Error during PUT 3 
; 266 0327 3 D; ; 
: 267 0328 ; : : 
; 268 iH RAB CRAB$V_TPT] = 0; ' Clear ‘‘truncate-on-put'’ which may have been i 
; 269 0330 3 i set by a REWRITE. : 
: 270 0331 2 END; : 
; $f bees 2 : 
; a 03335 2 1+ ; ; 
.~ oF 0334 2 ' Undefine file buffer ‘ 
> 276 0335 2 '- | ; 
; 275 0336 2 3 
: 276 0337 2 PFV CPFV$V_DFB) = 0; : 
» 20 0338 2 3 
: 278 0339 2 3 
; 279 0340 2 + 3 
: 280 0341 2 i Indicate successful completion ; 
3 628) 0342 2 i Uniock the file 3 
: 282 0343 2 in r 
; 283 0344 2 ; 
; 284 0345 2 FCB CFCBSL_STATUS) = 0; d 
; 2s 0346 2 PFV CPFV$V_LOCK] = 0; 3 
: 286 0347 2 3 
: 287 0348 2 RETURN; 5 
: 288 0349 2 : 
; 289 0350 1 END; ! End of routine PAS$PUT : 


E Hone PUT procedure 
\1=-001\ 
RN PAS$$I0_HANDLER 
TRN PAS$S$VACIDATE_PFV 
OOK _AHEAD 
Ms eee F ILNOTUPE 


ALEXC 
~EXTRN SYSS$POT at KEYDUPNOT 
“EXTRN PASS$K_ERRDURPUT 


-PSECT _PASSCODE,NOWRT, SHR, PIC,2 


| | | 
| PASSPUT PUT proced - 4 01:51: AX-11 Bliss- 0-74 | PAS 
rae cedure .- s 9 51:3 Bliss-32 V4.0-742 Page 7 


16-Sep-19 

PASSPUT = PUT procedure 14-Sep-19 2:51:34 PASRTL.SRCJPASPUT.B32;1 (3) | 1-( 
00DC 00000 «ENTRY PASSPUT, Save R2,R3,R4,R6,R7 3; 0141. é 
54 000000006 00 35 20003 MOVAB PASSS$SIGNAL, R4 : : 
5E 08 C2 0000 SUBL2 #8, SP : ; 
7E D4 9900¢ CLRL _- ERROR_ADDR + 0189. ; 
04 AE C OQO00E CLRQ UNWINB_ACT : 5 
6D OOEB «OCF OE 9011 MOVAL 20$, (F : ; 
| 02 6¢ 91 00016 CMPB_ (APS, # : 0208 : 
04 1F 0001 BLSSU 1 : ; 
6E 08 AC 00 00018 MOVL ERROR, ERROR_ADOR ; 0210) ; 
56 04 AC dO 0001 1$: MOVL PFV, R6 : 0216, ; 
08 AE 56 DO 00023 MOVL R6, PFV_ADDR : é 
900000006 00 16 00 7 JSB PASSSVACIDATE_PFV > 0222 | : 
04 AE 01 D0 00020 MOVL #1, UNWIND_ACT : 0228 | ; 
06 06 Ab E8 00031 BLBS  6(R6), + 0234. ; 
000000006 00 16 00035 SB PAS$$LOOK_AHEAD : 0236 | } 
| 08 07 Ab 05 €0 00038 2s: BBS #5, 7(R6), 3$ : 0242 : 
7E 04 00040 CLRL -(SP) 3; 0244 é 
| 7E 006 BF 9A 00042 MOVZBL M#PASS$K_FILNOTOPE, -(SP) : | : 
| 42 11 00046 BRB : | : 
52 FC A? SE 00048 3$: MOVAB <4(FCB), R2 ; 0250. ; 
| Oc 62 Oc £0 0004C BBS = #12, (RO), 4$ ; | : 
08 62 16 £0 00050 BBS #22. (R2). 4$ : | ; 
| 7E D4 00054 CLRL -(SP) 3 0252) : 
7E 00G 8F 9A 00056 MOVZBL #PASSK_FILNOTGEN, -(SP) ° é 
2E 11 O005A BRB 7$ : | : 
| 1D FB A? £9 0005C 4$: BLBC -8(FCB), 6$ > 0258 | ; 
FO OAT EC A? D1 00060 CMPL -20(FCBS, -16(FCB) > 0266 | ; 
| Oc 1F 00065 BLSSU5$ : | : 
| 01 DD 00067 PUSHL #1 : 0268 | ; 
01 DD 00069 PUSHL #1 : | : 
7E 00G 8F 9A 0006B MOVZBL #PAS$K_LINTOOLON, -(SP) g 3 
64 03 FB O006F CALLS #3, PASSS$SIGNAL : 3 
| 04 90072 RET ee 
EC B7 00 B6 90 000735 5$: MOVB @0(R6), a@-20(F CB) 3 0274 | g 
EC A? D6 00u78 INCL  =20(FCB) : ; 
76 11 00078 BRB : 0258 | ; 
EO A7 D5 0007D 68: TSTL -32(FCB) : 0284 | ; 
OF 19 00080 BLSS 6-9 : | : 
0A 12 00082 BNEQ 8$ > 0286 F 
7E D4 00086 CLRL = (SP) : 0288 | : 
7E 00G 8F 9A 00086 MOVZBL #PASSK_LINVALEXC, -(SP) Z | 3 
64 02 FB O008A 7$: CALLS #2, PASS$S$SIGNAL ; | : 
04 0008D RET : : 
EO AZ D7 OOO8E 8$:  —~dDECL~=s«-32¢F CB) : 0290 | : 
07 FB OAT 02 £1 00091 9$: BBC #2, -8(FCB), 10$ + 0296 | ; 
| 22 «AT 02 B6 BO 000% MOVW @0(R6), 34(FCB) : 0298 ; 
05 11 0009B BRB 11$ : |: 
22 A? 20 A? BO 0009D 10$:  MOvw 32(FCB), 34(FCB) > 0300 : 
28 «AZ 24 Az 00 0002 11$: MOVL  36(FCB), 40(FCB) > 0302 : 
04 62 02 EO OOOA BBS w2, (R25. 12$ : 0309 | : 
| OA 02 =A E9 OOAB BLBC 2(R2), 13$ ; : 
| 1E AZ 01 90 OOOAF 12% MOVB #1, 30(FCB) F 0312 : 
02 A2 01 8A 00083 BICB2 #1. 2(R2) : 031 : 
03 11 00087 BRB 14§ : 0309 3 
1€ A? 94 00089 13$:  CLRB 30(FCB) : 0316. ; 
57 DD OOOBC 14$:  PUSHL FCB > 0318 | ; 
000000006 00 01 FB OO0BE CALLS #1, SYSSPUT : ; 


PAS$PuUT PUT procedure 16-Sep-1984 01:51:3 AX-11 Bliss-32 V4.0-742 Page 
1-001 PASSPUT - PUT procedure 12-808- 1 3be 03:21:28 PASRTL.SRCJPASPUT.B32;1 . 35 
7 0 €8 000C BLBS SSSTATUS, 18$ : ; 
0001825A Ht 28 D1 Mite: CMPL S$STATUS, #98906 : : 
04 12 OOOCF BNEQ 15$ : | : 
E7 03 ag E8 00001 BLBS 3(R2), 14$ : : 
17 50 £8 00005 15$ BLBS STATUS, 18$ > 0319 : 
000184EC BF 50 D1 00008 CMPL STATUS, #99564 : 0322 ; 
06 12 OOODF BNEQ 16$ : ; 
7E 00G 8F 9A 000E1 MOVZBL #PASSK_KEYDUPNOT, -(SP) 3 0324. : 
04 11 OO0ES BRB 17$ : : 
7E 00G 8F 9A OOOE7 16$: MOVZBL #PASS$K_ERRDURPUT, -(SP) 3 0326 ; 
64 01 FB DOE 17$: EALLS #1, PASSSSIGNAL : | : 
04 A7 0 on OOEF 18$: BICB2 #2, 4(FCB) : 0329 | : 
06 Ab 02 8A OOOF3 198: BICB2 #2, 6(R6) : 0337 : 
D4 =A? «D4 000F7 CLRL -44(F CB) 3 0345 ; 
07 Ab 80 8F 8A OOOFA BICB2 #128, 7(R6) + 0346 : 
04 OOOFF RET : 0350 : 
0000 00100 20$ «WORD Save nothing ; 0189 3 
50 08 ac 00 90102 MOVL B(AP), : ; 
50 04 Ad 00 0106 MOVL 4(RO), RO : | : 
F4 AO 9F OO10A PUSHAB ERROR_ADDR ; : 
F8 AO 9F 0010D PUSHAB UNWIND ACT : : 
FC AO 9F 00110 PUSHAB PFV_ADBR : ; 
03 DD 00113 PUSHL #3 : : 
5E DD 00115 PUSHL SP ; : 
7E 04 AC 7D 00117 mova 4(AP), -(SP) : 
000000006 00 03 FB 0011B CALLS #3, PAS$$I0_HANDLER : 
04 00122 RET : 


; Routine Size: 291 bytes, Routine Base: _PASS$CODE + 0000 
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; 2M 0352 1 !<BLF/PAGE> 
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Name 
_PASSCODE 


File 


-8255$DUA28: 
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1 

PUT procedure 18-5 ep-19 AX-11 Bliss-32 V4.0-74 

PASSPUT - PUT procedure 14- ae 1382 3: 4:2 PASRTL SREIPASPUT b30¢4 
1 END ! End of module PAS$PUT 
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PSECT SUMMARY 
Bytes Attributes 
291 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
menses Syabols -o------ Pages Processing 
Total Loaded Percent Mapped Time 
SYSLIBJSTARLET.L32;1 9776 0 581 00:01.0 
PASRTL.OBJJPASLIB.L32;1 427 38 22 33 00:00.4 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:PASPUT/OBJ=OBJ$:PASPUT MSRC$:PASPUT/UPDATE=(ENHS$:PASPUT) 


Elapsed Time: 
Lines/CPU Min: 


een Na tagig 


Used: 


291 code + 0 data bytes 
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130 pages 
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